opendialog1.Execute;
  image1.Picture.LoadFromFile(opendialog1.FileName);


 savedialog1.Execute;
  image1.Picture.SaveToFile(savedialog1.FileName);

  //down
  X1:=X;
  Y1:=Y;
  edit1.text:=inttostr(X1);
  edit2.text:=inttostr(Y1);

  //up
  X2:=X;
  Y2:=Y;
  edit3.text:=inttostr(X2);
  edit4.text:=inttostr(Y2);

  //
  Image1.Canvas.Pen.Width:=3;
  colordialog1.Execute;
  Image1.Canvas.Pen.Color:=colordialog1.Color;
  Image1.Canvas.MoveTo(X1,Y1);
  Image1.Canvas.LineTo(X2,Y2);

  //
  Image1.Canvas.Pen.Width:=3;
  colordialog1.Execute;
  Image1.Canvas.Pen.Color:=colordialog1.Color;
  colordialog1.Execute;
  image1.Canvas.Brush.Color:=colordialog1.Color;
  image1.Canvas.Brush.Style:=bsSolid;
  Image1.Canvas.rectangle(X1,Y1,X2,Y2);